(proced-filter-alist): Use regexp-quote.

diff --git a/lisp/proced.el b/lisp/proced.el
index fd3e4ab706e25e7d17a6e8d1b2fa06b99c9a1e82..00c55bd254a400432cdba54a46bf2a81f0ade2af 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -265,8 +265,8 @@ It can also be a list of keys appearing in `proced-grammar-alist'."
 ;; FIXME: is there a better name for filter `user' that does not coincide
 ;; with an attribute key?
 (defcustom proced-filter-alist
-  `((user (user . ,(concat "\\`" (user-real-login-name) "\\'")))
-    (user-running (user . ,(concat "\\`" (user-real-login-name) "\\'"))
+  `((user (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'")))
+    (user-running (user . ,(concat "\\`" (regexp-quote (user-real-login-name)) "\\'"))
                   (state . "\\`[Rr]\\'"))
     (all)
     (all-running (state . "\\`[Rr]\\'"))